home *** CD-ROM | disk | FTP | other *** search
/ Brechnews 27 / Brechnews_27_1992-09-12_-.d64 / dumm.'s 1st try! (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  27 lines
  1. 1 rem up, up and away!
  2. 5 print"[147]":restore
  3. 6 gosub500
  4. 10 v=53248:rem basisadresse des vic
  5. 11 pokev+21,4:rem sprite 2 aktivieren
  6. 12 poke2042,13:rem daten fuer sprite 2      aus blk 13
  7. 20 print"please wait... calculating!":forn=0to62:readq:poke832+n,q:next
  8. 30 print"[147]":    forx=0to200
  9. 40 pokev+4,x:rem neue x-koordinate
  10. 50 pokev+5,x:rem neue y=koordinate
  11. 60 pokev+41,x:nextx
  12. 70 goto30
  13. 200 data0,127,0,1,255,192,3,255,224,3,231,224
  14. 210 data7,217,240,7,223,240,7,217,240,3,231,224
  15. 220 data3,255,224,3,255,224,2,255,160,1,127,64
  16. 230 data1,62,64,0,156,128,0,156,128,0,73,0,0,73,0,0
  17. 240 data62,0,0,62,0,0,62,0,0,28,0
  18. 500 print"dumminators designs proudly presents:"
  19. 510 print"-------------------------------------"
  20. 520 print"dumm.'s first try!"
  21. 530 print"this is our first try to code demos,but"
  22. 540 print"our first try is equal to the codes of"
  23. 550 print"cotzcow/rest or zoodiac/flesh otc."
  24. 560 print"press the space-key!!!"
  25. 570 geta$:ifa$=""then570
  26. 580 print"[147]":goto10
  27.